home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
pibt40s1.arc
/
AUTOKLOD.MOD
< prev
next >
Wrap
Text File
|
1986-08-13
|
1KB
|
26 lines
(*----------------------------------------------------------------------*)
(* Load_Function_Keys --- Load function key definitions *)
(*----------------------------------------------------------------------*)
PROCEDURE Load_Function_Keys( File_Name : AnyStr );
(*----------------------------------------------------------------------*)
(* *)
(* Procedure: Load_Function_Keys *)
(* *)
(* Purpose: Load function keys for terminal emulations *)
(* *)
(* Calling Sequence: *)
(* *)
(* Load_Function_Keys( File_Name : AnyStr ); *)
(* *)
(* File_Name --- file with function key definitions *)
(* *)
(*----------------------------------------------------------------------*)
BEGIN (* Load_Function_Keys *)
IF MyLoadOverlay( 0 , PT4UTIL, 'PT4UTIL.CHN' ) THEN
Set_Input_Keys( File_Name );
END (* Load_Function_Keys *);